|
|  Simple Simon patience
|  Written Ph. DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "Simple Simon"

  FLAGS ClickFly AnimateFly AutoFly
  PACKS 1
  WIDTH 10 * CW
  HEIGHT CH + 50 * COH
  ZEROTOWIN 4 - SEQUENCES$1

| Tableau

  FOR stack = 0 TO 2
    STACK
      X stack * CW
      Y 0
      FIRST 1, 13
      JOINOFFSET -1
      DEAL 8, 1
      DragOffset -1
      Sequence SeqSS__, x13, -1, 13
      FLAGS DeepCheck Join____ ClickFly DragSS__
      ID 1
    END
  END

  FOR stack = 3 TO 9
    STACK
      X stack * CW
      Y 0
      FIRST 1, 13
      JOINOFFSET -1
      DEAL 10 - stack , 1
      DragOffset -1
      Sequence SeqSS__, x13, -1, 13
      FLAGS DeepCheck Join____ ClickFly DragSS__
      ID 1
    END
  END

END
